dim ws : set ws = CreateObject("WScript.Shell")
dim varName : varName = "ActiveLayerOnly"
dim regPath : regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
dim varValue : varValue = ws.RegRead(regPath)
Application.StatusBarText =""
select case varValue
	case 0
		varValue = 1
		ws.RegWrite regPath, varValue, "REG_EXPAND_SZ"
		Application.StatusBarText = "active layer only"
	case 1
		varValue = 0
		ws.RegWrite regPath, varValue, "REG_EXPAND_SZ"
		Application.StatusBarText ="multi layer"
end select
set ws = nothing